home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 17 / CU Amiga Magazine's Super CD-ROM 17 (1997)(EMAP Images)(GB)[!][issue 1997-12].iso / CUCD / Programming / Gui4Cli / Docs / Tutorials / Graphics.gc < prev    next >
Encoding:
Gui4CLI script  |  1980-01-03  |  2.0 KB  |  86 lines
  1. G4C
  2.  
  3. WINBIG 80 28 435 190    "Graphics.gc"
  4. WinType 11110001
  5. usetopaz
  6.  
  7. ;  ---- All the graphics elements are defined before the 
  8. ;       actual program coding.
  9.  
  10. ;  The frame and a box for the headings
  11. BOX 0 0 0 0       OUT RIDGE
  12. BOX 5 2 424 25    out button
  13.  
  14. ; COLOUR TEXT
  15.  
  16. ; Colour text used in the headings.  Arguments are :
  17. ;     L   T         Text               font    size Fg Bg Mask
  18. ;     |   |           |                  |       |  |  |   |
  19. CTEXT 131 2    ' ***   GRAPHICS   *** ' topaz.font 11  1  2  000
  20. ; The 'mask' sets the text style to Underline|Bold|Italics
  21.  
  22. CTEXT 10 15  "Boxes       Lines        Squares        Circles"  topaz.font 8 2 0 111 
  23.  
  24.  
  25. ; BOXES - Arguments are the usual L  T  W  H plus options.
  26. ; Options are IN|OUT and BUTTON|RIDGE|ICONDROP
  27.  
  28. BOX 10 30 40 20    IN BUTTON
  29. BOX 10 55 40 20    OUT BUTTON
  30. BOX 10 80 40 20    IN RIDGE
  31. BOX 10 105 40 20    OUT RIDGE
  32. BOX 10 130 40 20    IN ICONDROP
  33. BOX 10 155 40 20    OUT ICONDROP
  34.  
  35. ; LINES - Five arguments : L.1 T.1 L.2 T.2 and Colour
  36.  
  37. LINE 80 40 80 160    1
  38. LINE 80 161 180 161    1
  39. LINE 82 40 95 160    2
  40. LINE 82 40 110 160    3
  41. LINE 82 40 125 160    4
  42. LINE 82 40 140 160    5
  43. LINE 82 40 155 160    6
  44. LINE 82 40 170 160    7
  45.  
  46. ; These lines divide the window vertically
  47.  
  48. LINE 66 26 66 187    1 
  49. LINE 190 26 190 187    1 
  50. LINE 304 26 304 187    1 
  51.  
  52.  
  53. ; SQUARES - Arguments : L T W H, colour, FILL|NOFILL
  54.  
  55. SQUARE 200 30 30 20    1 nofill
  56. SQUARE 250 30 30 20    1 fill
  57. SQUARE 200 70 40 20    2 nofill
  58. SQUARE 250 70 40 20    2 fill
  59. SQUARE 200 110 45 20    3 nofill
  60. SQUARE 250 110 45 20    3 fill
  61. SQUARE 200 154 90 6    4 nofill
  62. SQUARE 270 134 10 50    4 fill
  63.  
  64. ; CIRCLES - Arguments : CenterX CenterY xradius yradius colour FILL|NOFILL
  65.  
  66. CIRCLE 340 40 20 10    1 nofill
  67. CIRCLE 390 40 20 10    1 fill
  68. CIRCLE 340 80 30 10    2 nofill
  69. CIRCLE 390 80 30 10    2 fill
  70. CIRCLE 340 120 25 20    3 nofill
  71. CIRCLE 390 120 25 20    3 fill
  72. CIRCLE 340 160 15 25    4 nofill
  73. CIRCLE 390 160 15 25    4 fill
  74.  
  75.  
  76. ; Normal program coding, such as it is, starts here.
  77.  
  78. xonLoad 
  79. GuiOpen Graphics.gc
  80.  
  81. xonClose
  82. GuiQuit Graphics.gc
  83.  
  84.  
  85.  
  86.